﻿Public Class Options


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        My.Settings.homeurl = ("http://") & InputBox("Choose your new Home URL. Dont enter HTTP://")
        ' the above code assigns a new homepage to the program and applies the http:// to it

        Me.HomeURL.Text = My.Settings.homeurl ' displays the content of the setting in the textbox 
    End Sub

    Private Sub Options_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.HomeURL.Text = My.Settings.homeurl ' displays the content of the setting in the textbox  when the form loads 
    End Sub
End Class